home *** CD-ROM | disk | FTP | other *** search
- object SetHeightDlg: TSetHeightDlg
- Left = 233
- Top = 227
- BorderStyle = bsDialog
- Caption = 'Set Height'
- ClientHeight = 171
- ClientWidth = 363
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = True
- Position = poScreenCenter
- PixelsPerInch = 96
- TextHeight = 13
- object OKBtn: TButton
- Left = 104
- Top = 140
- Width = 75
- Height = 25
- Caption = 'OK'
- Default = True
- ModalResult = 1
- TabOrder = 0
- end
- object CancelBtn: TButton
- Left = 184
- Top = 140
- Width = 75
- Height = 25
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 1
- end
- object GroupBox1: TGroupBox
- Left = 184
- Top = 8
- Width = 169
- Height = 121
- Caption = 'Action'
- TabOrder = 2
- object Label1: TLabel
- Left = 10
- Top = 88
- Width = 49
- Height = 13
- Caption = 'Difference'
- end
- object AddRadio: TRadioButton
- Left = 8
- Top = 48
- Width = 113
- Height = 17
- Alignment = taLeftJustify
- Caption = 'Add Height'
- TabOrder = 0
- OnClick = HeightRadioClick
- end
- object NullRadio: TRadioButton
- Left = 8
- Top = 32
- Width = 113
- Height = 17
- Alignment = taLeftJustify
- Caption = 'Set to Null'
- TabOrder = 1
- OnClick = HeightRadioClick
- end
- object SubtractRadio: TRadioButton
- Left = 8
- Top = 64
- Width = 113
- Height = 17
- Alignment = taLeftJustify
- Caption = 'Subtract Height'
- TabOrder = 2
- OnClick = HeightRadioClick
- end
- object HeightRadio: TRadioButton
- Left = 8
- Top = 16
- Width = 113
- Height = 17
- Alignment = taLeftJustify
- Caption = 'Set as Height'
- Checked = True
- TabOrder = 3
- TabStop = True
- OnClick = HeightRadioClick
- end
- object ActionHeight: TFloatEdit
- Left = 96
- Top = 83
- Width = 65
- Height = 21
- TabOrder = 4
- Text = '0.0'
- Digits = 1
- Max = 99999999.900000000000000000
- ErrorMessage = '[No Text]'
- end
- end
- object GroupBox2: TGroupBox
- Left = 8
- Top = 8
- Width = 169
- Height = 121
- Caption = 'Height'
- TabOrder = 3
- object InfoLabel: TLabel
- Left = 8
- Top = 24
- Width = 152
- Height = 13
- Caption = 'Grid Point 999,999 dummy string'
- end
- object HeightLabel: TLabel
- Left = 8
- Top = 48
- Width = 31
- Height = 13
- Caption = 'Height'
- end
- object HeightEdit: TFloatEdit
- Left = 88
- Top = 43
- Width = 73
- Height = 21
- TabOrder = 0
- Text = '0.0'
- Digits = 1
- Max = 99999999.900000000000000000
- ErrorMessage = '[No Text]'
- end
- end
- end
-